Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
Imports System.Web.Security
Imports System.Web.UI.HtmlControls

Imports System.Web.UI.WebControls.WebParts
Imports System.Xml.Linq
Public Partial Class ticket
	Inherits System.Web.UI.Page
	Protected Sub Page_Load(sender As Object, e As EventArgs)
		Label4.Text = DateTime.Today.ToString("f")
		If Page.User.Identity.Name <> "" Then
			If Not Roles.IsUserInRole("MovieTix") And Not Roles.IsUserInRole("Theatre") Then
				HyperLink15.Text = "My Account"

				HyperLink15.NavigateUrl = "~/myaccount.aspx"

			ElseIf Roles.IsUserInRole("MovieTix") Then
				HyperLink15.Text = "MovieTix Staff"

				HyperLink15.NavigateUrl = "~/MovieTixstaff/addtheatre.aspx"
			ElseIf Roles.IsUserInRole("Theatre") Then
				HyperLink15.Text = "Theatre Staff"

				HyperLink15.NavigateUrl = "~/Theatrestaff/cinema.aspx"
			End If
		End If
	End Sub
End Class
